
package dbPicasso::Database::ODBC::db;

use dbPicasso::Database::Helper;
use base qw(dbPicasso::Database::Helper::db);

sub _gen_DSN
{
	my $class = shift;
	my %cxinfo = @_;

	my $host = $cxinfo{Host} || "localhost";
	return undef unless ($cxinfo{Database});

	my $reqDSN = join (":", "dbi", $cxinfo{Driver}, 
				join (";", "servername=$host",
					   "db=$cxinfo{Database}"
				     )
			  );

	print "DSN: $reqDSN\n\n";
	return $reqDSN;
}


package dbPicasso::Database::ODBC::st;

use base qw(dbPicasso::Database::Helper::st);


1;
